home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 46 / 046.d81 / computer juicer (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  50 lines
  1. 10 goto100
  2. 50 open15,8,15,"i0":close15
  3. 100 poke53281,9:poke53280,0
  4. 110 printchr$(142)"[147]";
  5. 115 print"[144]   [172][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][187]"
  6. 117 print"[144]   [167][158]                                [146][144][165]"
  7. 120 print"   [167][158] c o m p u t e r    j u i c e r [146][144][165]"
  8. 123 print"[144]   [167][158]                                [146][144][165]"
  9. 125 print"   [188][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][190]"
  10. 200 print" a[158]nnihilate     b[158]lend        c[158]hop"
  11. 210 print" d[158]isintegrate   e[158]viscerate   f[158]lip"
  12. 220 print" g[158]rind          h[158]ack         i[158]gnite"
  13. 230 print" j[158]iggle         k[158]eelhaul     l[158]iquify"
  14. 240 print" m[158]ix            n[158]eutralize   o[158]scillate"
  15. 250 print" p[158]uree          q[158]uake        r[158]otate"
  16. 260 print" s[158]platter       t[158]hrash       u[158]ndulate"
  17. 270 print" v[158]ivisect       w[158]obble       x[158]ylophone"
  18. 280 print" y[158]eccch         z[158]ap"
  19. 300 print"            choose your speed"
  20. 400 geta$:ifa$=""then400
  21. 410 ifa$<"a"ora$>"z"then400
  22. 415 print"[145]                                "
  23. 420 print""
  24. 430 printtab(5)"[144][172][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][187]"
  25. 440 printtab(5)"[167]                            [146][144][165]"
  26. 450 printtab(5)"[167]  reading the serial number [146][144][165]"
  27. 460 printtab(5)"[167]         of your drive      [146][144][165]"
  28. 470 printtab(5)"[167]                            [146][144][165]"
  29. 480 printtab(5)"[188][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][190]"
  30. 500 open15,8,15,"i0":close15
  31. 510 fort=0to2000:next
  32. 520 printtab(6)"[144][172][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][187]"
  33. 530 printtab(6)"[167]                          [146][144][165]"
  34. 540 printtab(6)"[167] your drive serial number [146][144][165]"
  35. 550 printtab(6)"[167] is higher than a00000034 [146][144][165]"
  36. 555 printtab(6)"[167]    do you want to try    [146][144][165]"
  37. 557 printtab(6)"[167]   another drive? ([158]y/[158]n)   [146][144][165]"
  38. 560 printtab(6)"[167]                          [146][144][165]"
  39. 570 printtab(6)"[188][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][190]"
  40. 580 geta$:ifa$<>"y"anda$<>"n"then580
  41. 590 ifa$="y"then110
  42. 600 printtab(6)"[144][172][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][187]"
  43. 610 printtab(6)"[167]                          [146][144][165]"
  44. 620 printtab(6)"[167] back to loadstar? ([158]y/[158]n)  [146][144][165]"
  45. 630 printtab(6)"[167]                          [146][144][165]"
  46. 640 printtab(6)"[188][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][190]"
  47. 650 geta$:ifa$<>"y"anda$<>"n"then650
  48. 660 ifa$="n"then110
  49. 670 load"hello connect",8
  50.